home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
123w20.zip
/
LSETCOLS.BAS
< prev
next >
Wrap
BASIC Source File
|
1990-11-15
|
719b
|
27 lines
DEFINT A-Z
DECLARE SUB lSetCols (intArray%())
DEFINT A-Z
SUB lSetCols (colArray(1)) STATIC
'By using the lbound and ubound functions a series of columns
'can have their width set by calling this routine. Dim the
'array from the first column and up to the last column to be
'be set. The array element # specifies the column, the integer
'in the array element specifies the column width (up to 240).
start = LBOUND(colArray)
finish = UBOUND(colArray)
IF start < 0 OR finish > 255 THEN EXIT SUB
FOR i = start TO finish
IF colArray(i) > 0 AND colArray(i) < 241 THEN
CALL lSetCol(i, colArray(i))
END IF
NEXT
END SUB